home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
tzap210.arc
/
TPVERS.200
< prev
next >
Wrap
Text File
|
1985-09-08
|
3KB
|
75 lines
{*********************************************************************}
{* T P V E R S . 2 0 0 *}
{* *}
{* O p e n C o m p i l e r : and get Version *}
{* *}
{* Separate This file into TPVERS.200 *}
{*********************************************************************}
Procedure Open_Compiler;
Var
TempStr :string[8]; {Tempory Trash String }
Begin
TempStr := 'VERSIONS'; { Find 'Versions in Zap file }
Version := 0; { No version found yet }
Version_Key[Version].Name := '';{ No Version as of yet}
Find_Zap(TempStr,Return_code); { Set up the Version Key array}
If (Return_Code = 0) then { When "VERSION" found in zap }
Begin { Find Version} { file, read Compiler Version }
I:=0; { Jmp Address and Keyname until }
{ Verify Address = zero }
repeat {until Versify = 0}
I := I +1;
Read(Zap_File,
Version_Key[i].Verify);
If Version_Key[i].Verify <> 0 then
Begin
Readln(Zap_File,
Version_Key[i].UniqueWord,
Version_Key[i].Name);
end;
until (Version_Key[i].Verify=0);
Actual_Versions := I -1; { Set Number of Version Found }
For I := 1 to Actual_Versions do { Remove Blanks from Version }
While (Pos(' ',Version_Key[i].Name) <> 0)
Do Delete(Version_key[i].Name,
Pos(' ',Version_Key[i].Name),1);
Return_Code := 1; { Set Error Return code }
Assign(ComOUT_File,ComOut_Filename);
{$I-} Reset(ComOUT_File); { Open the copied .COM file }
{$I+} Return_Code := IOresult;
If ( Return_Code <> 0 ) then
Pause('Please Specify .COM files first');
If ( Return_Code = 0) then
Begin
Return_Code := 1;
For I := 1 to Actual_Versions do
Begin { Seek to Verify Word }
Seek(ComOut_File,Version_Key[i].Verify-$100);
Read(ComOut_File,B,A); { Read the Jump Address }
ComStartAddr := B + A shl 8 ;
If (ComStartAddr = Version_Key[I].UniqueWord) then
Begin
Version := I;
Return_Code := 0;
end;
end;
If (Return_code <> 0) then
Begin
Beep(600);
Pause(' '+ComOut_Filename+' is not a TURBO Compiler');
Return_Code := 1;
end;
End; { Return_Code = 0 }
End; {Find Version}
Close(Zap_File);
End; {Open_Compiler}
{......................................................................}